home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Smart_POS(2101682132008.psc / Smart POS / Copy of Form1.frm < prev    next >
Text File  |  2006-07-24  |  31KB  |  1,008 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form frmItem 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Artikujt"
  7.    ClientHeight    =   9150
  8.    ClientLeft      =   45
  9.    ClientTop       =   435
  10.    ClientWidth     =   11760
  11.    Icon            =   "Form1.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   9150
  16.    ScaleWidth      =   11760
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CheckBox chBar 
  20.       Caption         =   "Gjenero Barkodat automatikisht"
  21.       BeginProperty Font 
  22.          Name            =   "Tahoma"
  23.          Size            =   8.25
  24.          Charset         =   0
  25.          Weight          =   700
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   375
  31.       Left            =   120
  32.       TabIndex        =   34
  33.       Top             =   7920
  34.       Width           =   5535
  35.    End
  36.    Begin VB.TextBox txtmazha 
  37.       BackColor       =   &H00FFFFFF&
  38.       BeginProperty Font 
  39.          Name            =   "Tahoma"
  40.          Size            =   8.25
  41.          Charset         =   0
  42.          Weight          =   700
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       ForeColor       =   &H00404040&
  48.       Height          =   320
  49.       Left            =   8400
  50.       MaxLength       =   25
  51.       TabIndex        =   5
  52.       Text            =   "0"
  53.       Top             =   960
  54.       Width           =   1575
  55.    End
  56.    Begin VB.TextBox txtrabat 
  57.       BackColor       =   &H00FFFFFF&
  58.       BeginProperty Font 
  59.          Name            =   "Tahoma"
  60.          Size            =   8.25
  61.          Charset         =   0
  62.          Weight          =   700
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       ForeColor       =   &H00404040&
  68.       Height          =   320
  69.       Left            =   8400
  70.       MaxLength       =   25
  71.       TabIndex        =   6
  72.       Text            =   "0"
  73.       Top             =   1440
  74.       Width           =   1575
  75.    End
  76.    Begin VB.CommandButton cmdANuloje 
  77.       Caption         =   "Anuloje"
  78.       BeginProperty Font 
  79.          Name            =   "Tahoma"
  80.          Size            =   8.25
  81.          Charset         =   0
  82.          Weight          =   700
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       Height          =   495
  88.       Left            =   9720
  89.       TabIndex        =   29
  90.       Top             =   8520
  91.       Width           =   1935
  92.    End
  93.    Begin VB.CommandButton cmdDalja 
  94.       Caption         =   "Kerko"
  95.       BeginProperty Font 
  96.          Name            =   "Tahoma"
  97.          Size            =   8.25
  98.          Charset         =   0
  99.          Weight          =   700
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   495
  105.       Left            =   7800
  106.       TabIndex        =   28
  107.       Top             =   8520
  108.       Width           =   1815
  109.    End
  110.    Begin VB.CommandButton cmdFshije 
  111.       Caption         =   "Fshije"
  112.       BeginProperty Font 
  113.          Name            =   "Tahoma"
  114.          Size            =   8.25
  115.          Charset         =   0
  116.          Weight          =   700
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       Height          =   495
  122.       Left            =   5880
  123.       TabIndex        =   27
  124.       Top             =   8520
  125.       Width           =   1815
  126.    End
  127.    Begin VB.CommandButton cmdNdrysho 
  128.       Caption         =   "Ndrysho"
  129.       BeginProperty Font 
  130.          Name            =   "Tahoma"
  131.          Size            =   8.25
  132.          Charset         =   0
  133.          Weight          =   700
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       Height          =   495
  139.       Left            =   3960
  140.       TabIndex        =   26
  141.       Top             =   8520
  142.       Width           =   1815
  143.    End
  144.    Begin VB.CommandButton cmdRuaj 
  145.       Caption         =   "Ruaje"
  146.       BeginProperty Font 
  147.          Name            =   "Tahoma"
  148.          Size            =   8.25
  149.          Charset         =   0
  150.          Weight          =   700
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       Height          =   495
  156.       Left            =   2040
  157.       TabIndex        =   25
  158.       Top             =   8520
  159.       Width           =   1815
  160.    End
  161.    Begin VB.CommandButton cmdShto 
  162.       Caption         =   "Shto"
  163.       BeginProperty Font 
  164.          Name            =   "Tahoma"
  165.          Size            =   8.25
  166.          Charset         =   0
  167.          Weight          =   700
  168.          Underline       =   0   'False
  169.          Italic          =   0   'False
  170.          Strikethrough   =   0   'False
  171.       EndProperty
  172.       Height          =   495
  173.       Left            =   120
  174.       TabIndex        =   24
  175.       Top             =   8520
  176.       Width           =   1815
  177.    End
  178.    Begin ComctlLib.ListView ListView1 
  179.       Height          =   4455
  180.       Left            =   120
  181.       TabIndex        =   23
  182.       Top             =   3360
  183.       Width           =   11535
  184.       _ExtentX        =   20346
  185.       _ExtentY        =   7858
  186.       View            =   3
  187.       LabelWrap       =   -1  'True
  188.       HideSelection   =   -1  'True
  189.       _Version        =   327682
  190.       Icons           =   "ImageList2"
  191.       SmallIcons      =   "ImageList2"
  192.       ForeColor       =   -2147483640
  193.       BackColor       =   -2147483643
  194.       Appearance      =   1
  195.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  196.          Name            =   "Tahoma"
  197.          Size            =   8.25
  198.          Charset         =   0
  199.          Weight          =   700
  200.          Underline       =   0   'False
  201.          Italic          =   0   'False
  202.          Strikethrough   =   0   'False
  203.       EndProperty
  204.       NumItems        =   4
  205.       BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  206.          Key             =   ""
  207.          Object.Tag             =   ""
  208.          Text            =   "Barkodi"
  209.          Object.Width           =   4410
  210.       EndProperty
  211.       BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  212.          SubItemIndex    =   1
  213.          Key             =   ""
  214.          Object.Tag             =   ""
  215.          Text            =   "Pershkrimi"
  216.          Object.Width           =   7937
  217.       EndProperty
  218.       BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  219.          SubItemIndex    =   2
  220.          Key             =   ""
  221.          Object.Tag             =   ""
  222.          Text            =   "╟mimi"
  223.          Object.Width           =   2540
  224.       EndProperty
  225.       BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  226.          SubItemIndex    =   3
  227.          Key             =   ""
  228.          Object.Tag             =   ""
  229.          Text            =   "TVSH"
  230.          Object.Width           =   2540
  231.       EndProperty
  232.    End
  233.    Begin SmartCASH.ctrlLiner ctrlLiner1 
  234.       Height          =   30
  235.       Left            =   120
  236.       TabIndex        =   22
  237.       Top             =   8400
  238.       Width           =   11535
  239.       _ExtentX        =   20346
  240.       _ExtentY        =   53
  241.    End
  242.    Begin VB.ComboBox cboCategory 
  243.       BackColor       =   &H00FFFFFF&
  244.       BeginProperty Font 
  245.          Name            =   "Tahoma"
  246.          Size            =   8.25
  247.          Charset         =   0
  248.          Weight          =   700
  249.          Underline       =   0   'False
  250.          Italic          =   0   'False
  251.          Strikethrough   =   0   'False
  252.       EndProperty
  253.       ForeColor       =   &H00404040&
  254.       Height          =   315
  255.       Left            =   2040
  256.       TabIndex        =   3
  257.       Top             =   2400
  258.       Width           =   4575
  259.    End
  260.    Begin VB.ComboBox cboSupp 
  261.       BackColor       =   &H00FFFFFF&
  262.       BeginProperty Font 
  263.          Name            =   "Tahoma"
  264.          Size            =   8.25
  265.          Charset         =   0
  266.          Weight          =   700
  267.          Underline       =   0   'False
  268.          Italic          =   0   'False
  269.          Strikethrough   =   0   'False
  270.       EndProperty
  271.       ForeColor       =   &H00404040&
  272.       Height          =   315
  273.       Left            =   2040
  274.       TabIndex        =   2
  275.       Top             =   1920
  276.       Width           =   4575
  277.    End
  278.    Begin VB.TextBox txtpershkrimi 
  279.       BackColor       =   &H00FFFFFF&
  280.       BeginProperty Font 
  281.          Name            =   "Tahoma"
  282.          Size            =   8.25
  283.          Charset         =   0
  284.          Weight          =   700
  285.          Underline       =   0   'False
  286.          Italic          =   0   'False
  287.          Strikethrough   =   0   'False
  288.       EndProperty
  289.       ForeColor       =   &H00404040&
  290.       Height          =   320
  291.       Left            =   2040
  292.       MaxLength       =   25
  293.       TabIndex        =   1
  294.       Top             =   1440
  295.       Width           =   4575
  296.    End
  297.    Begin VB.TextBox txtbarkodi 
  298.       BackColor       =   &H00FFFFFF&
  299.       BeginProperty Font 
  300.          Name            =   "Tahoma"
  301.          Size            =   8.25
  302.          Charset         =   0
  303.          Weight          =   700
  304.          Underline       =   0   'False
  305.          Italic          =   0   'False
  306.          Strikethrough   =   0   'False
  307.       EndProperty
  308.       ForeColor       =   &H00404040&
  309.       Height          =   320
  310.       Left            =   2040
  311.       MaxLength       =   25
  312.       TabIndex        =   0
  313.       Top             =   960
  314.       Width           =   2655
  315.    End
  316.    Begin VB.TextBox txtvat 
  317.       BackColor       =   &H00FFFFFF&
  318.       BeginProperty Font 
  319.          Name            =   "Tahoma"
  320.          Size            =   8.25
  321.          Charset         =   0
  322.          Weight          =   700
  323.          Underline       =   0   'False
  324.          Italic          =   0   'False
  325.          Strikethrough   =   0   'False
  326.       EndProperty
  327.       ForeColor       =   &H00404040&
  328.       Height          =   320
  329.       Left            =   8400
  330.       MaxLength       =   25
  331.       TabIndex        =   8
  332.       Top             =   2400
  333.       Width           =   1575
  334.    End
  335.    Begin VB.TextBox txtblerja 
  336.       BackColor       =   &H00FFFFFF&
  337.       BeginProperty Font 
  338.          Name            =   "Tahoma"
  339.          Size            =   8.25
  340.          Charset         =   0
  341.          Weight          =   700
  342.          Underline       =   0   'False
  343.          Italic          =   0   'False
  344.          Strikethrough   =   0   'False
  345.       EndProperty
  346.       ForeColor       =   &H00404040&
  347.       Height          =   320
  348.       Left            =   2040
  349.       MaxLength       =   25
  350.       TabIndex        =   4
  351.       Text            =   "0.00"
  352.       Top             =   2880
  353.       Width           =   1575
  354.    End
  355.    Begin VB.TextBox txtshitja 
  356.       BackColor       =   &H00FFFFFF&
  357.       BeginProperty Font 
  358.          Name            =   "Tahoma"
  359.          Size            =   8.25
  360.          Charset         =   0
  361.          Weight          =   700
  362.          Underline       =   0   'False
  363.          Italic          =   0   'False
  364.          Strikethrough   =   0   'False
  365.       EndProperty
  366.       ForeColor       =   &H00404040&
  367.       Height          =   320
  368.       Left            =   8400
  369.       MaxLength       =   25
  370.       TabIndex        =   9
  371.       Text            =   "0.00"
  372.       Top             =   2880
  373.       Width           =   1575
  374.    End
  375.    Begin VB.TextBox txtsasia 
  376.       BackColor       =   &H00FFFFFF&
  377.       BeginProperty Font 
  378.          Name            =   "Tahoma"
  379.          Size            =   8.25
  380.          Charset         =   0
  381.          Weight          =   700
  382.          Underline       =   0   'False
  383.          Italic          =   0   'False
  384.          Strikethrough   =   0   'False
  385.       EndProperty
  386.       ForeColor       =   &H00404040&
  387.       Height          =   320
  388.       Left            =   8400
  389.       MaxLength       =   25
  390.       TabIndex        =   7
  391.       Text            =   "0"
  392.       Top             =   1920
  393.       Width           =   1575
  394.    End
  395.    Begin MSComctlLib.ImageList ImageList1 
  396.       Left            =   10560
  397.       Top             =   1560
  398.       _ExtentX        =   1005
  399.       _ExtentY        =   1005
  400.       BackColor       =   -2147483643
  401.       ImageWidth      =   16
  402.       ImageHeight     =   16
  403.       MaskColor       =   12632256
  404.       _Version        =   393216
  405.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  406.          NumListImages   =   1
  407.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  408.             Picture         =   "Form1.frx":08CA
  409.             Key             =   ""
  410.          EndProperty
  411.       EndProperty
  412.    End
  413.    Begin SmartCASH.ctrlLiner ctrlLiner2 
  414.       Height          =   30
  415.       Left            =   0
  416.       TabIndex        =   18
  417.       Top             =   720
  418.       Width           =   13455
  419.       _ExtentX        =   23733
  420.       _ExtentY        =   53
  421.    End
  422.    Begin VB.Label lbltotal 
  423.       Caption         =   "Label3"
  424.       Height          =   255
  425.       Left            =   10080
  426.       TabIndex        =   33
  427.       Top             =   960
  428.       Visible         =   0   'False
  429.       Width           =   1575
  430.    End
  431.    Begin VB.Label Label2 
  432.       BackColor       =   &H00008080&
  433.       BackStyle       =   0  'Transparent
  434.       Caption         =   "Mazha:"
  435.       BeginProperty Font 
  436.          Name            =   "Tahoma"
  437.          Size            =   8.25
  438.          Charset         =   0
  439.          Weight          =   700
  440.          Underline       =   0   'False
  441.          Italic          =   0   'False
  442.          Strikethrough   =   0   'False
  443.       EndProperty
  444.       ForeColor       =   &H00404040&
  445.       Height          =   255
  446.       Index           =   9
  447.       Left            =   6840
  448.       TabIndex        =   32
  449.       Top             =   960
  450.       Width           =   1455
  451.    End
  452.    Begin VB.Label Label2 
  453.       BackColor       =   &H00008080&
  454.       BackStyle       =   0  'Transparent
  455.       Caption         =   "Rabat:"
  456.       BeginProperty Font 
  457.          Name            =   "Tahoma"
  458.          Size            =   8.25
  459.          Charset         =   0
  460.          Weight          =   700
  461.          Underline       =   0   'False
  462.          Italic          =   0   'False
  463.          Strikethrough   =   0   'False
  464.       EndProperty
  465.       ForeColor       =   &H00404040&
  466.       Height          =   255
  467.       Index           =   2
  468.       Left            =   6840
  469.       TabIndex        =   31
  470.       Top             =   1440
  471.       Width           =   1455
  472.    End
  473.    Begin VB.Label lblbarkodi 
  474.       Caption         =   "Label3"
  475.       Height          =   255
  476.       Left            =   4800
  477.       TabIndex        =   30
  478.       Top             =   960
  479.       Visible         =   0   'False
  480.       Width           =   975
  481.    End
  482.    Begin ComctlLib.ImageList ImageList2 
  483.       Left            =   5760
  484.       Top             =   960
  485.       _ExtentX        =   1005
  486.       _ExtentY        =   1005
  487.       BackColor       =   -2147483643
  488.       ImageWidth      =   16
  489.       ImageHeight     =   16
  490.       MaskColor       =   12632256
  491.       _Version        =   327682
  492.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  493.          NumListImages   =   1
  494.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  495.             Picture         =   "Form1.frx":0D1C
  496.             Key             =   ""
  497.          EndProperty
  498.       EndProperty
  499.    End
  500.    Begin VB.Label lblcat 
  501.       Caption         =   "Label3"
  502.       Height          =   255
  503.       Left            =   1200
  504.       TabIndex        =   21
  505.       Top             =   2400
  506.       Visible         =   0   'False
  507.       Width           =   1335
  508.    End
  509.    Begin VB.Label lblsupp 
  510.       Caption         =   "Label3"
  511.       Height          =   255
  512.       Left            =   1200
  513.       TabIndex        =   20
  514.       Top             =   1920
  515.       Visible         =   0   'False
  516.       Width           =   1335
  517.    End
  518.    Begin VB.Image Image2 
  519.       Height          =   480
  520.       Left            =   120
  521.       Picture         =   "Form1.frx":106E
  522.       Top             =   120
  523.       Width           =   480
  524.    End
  525.    Begin VB.Label Label1 
  526.       BackStyle       =   0  'Transparent
  527.       Caption         =   "Shenimet e Artikujve nδ stok"
  528.       BeginProperty Font 
  529.          Name            =   "Tahoma"
  530.          Size            =   8.25
  531.          Charset         =   0
  532.          Weight          =   700
  533.          Underline       =   0   'False
  534.          Italic          =   0   'False
  535.          Strikethrough   =   0   'False
  536.       EndProperty
  537.       ForeColor       =   &H00FFFFFF&
  538.       Height          =   255
  539.       Left            =   840
  540.       TabIndex        =   19
  541.       Top             =   240
  542.       Width           =   2535
  543.    End
  544.    Begin VB.Label Label2 
  545.       BackColor       =   &H00008080&
  546.       BackStyle       =   0  'Transparent
  547.       Caption         =   "Kategoria:"
  548.       BeginProperty Font 
  549.          Name            =   "Tahoma"
  550.          Size            =   8.25
  551.          Charset         =   0
  552.          Weight          =   700
  553.          Underline       =   0   'False
  554.          Italic          =   0   'False
  555.          Strikethrough   =   0   'False
  556.       EndProperty
  557.       ForeColor       =   &H00404040&
  558.       Height          =   255
  559.       Index           =   4
  560.       Left            =   120
  561.       TabIndex        =   17
  562.       Top             =   2400
  563.       Width           =   1815
  564.    End
  565.    Begin VB.Label Label2 
  566.       BackColor       =   &H00008080&
  567.       BackStyle       =   0  'Transparent
  568.       Caption         =   "Furnizuesi:"
  569.       BeginProperty Font 
  570.          Name            =   "Tahoma"
  571.          Size            =   8.25
  572.          Charset         =   0
  573.          Weight          =   700
  574.          Underline       =   0   'False
  575.          Italic          =   0   'False
  576.          Strikethrough   =   0   'False
  577.       EndProperty
  578.       ForeColor       =   &H00404040&
  579.       Height          =   255
  580.       Index           =   3
  581.       Left            =   120
  582.       TabIndex        =   16
  583.       Top             =   1920
  584.       Width           =   1815
  585.    End
  586.    Begin VB.Label Label2 
  587.       BackColor       =   &H00008080&
  588.       BackStyle       =   0  'Transparent
  589.       Caption         =   "Pδrshkrimi:"
  590.       BeginProperty Font 
  591.          Name            =   "Tahoma"
  592.          Size            =   8.25
  593.          Charset         =   0
  594.          Weight          =   700
  595.          Underline       =   0   'False
  596.          Italic          =   0   'False
  597.          Strikethrough   =   0   'False
  598.       EndProperty
  599.       ForeColor       =   &H00404040&
  600.       Height          =   255
  601.       Index           =   1
  602.       Left            =   120
  603.       TabIndex        =   15
  604.       Top             =   1440
  605.       Width           =   1815
  606.    End
  607.    Begin VB.Label Label2 
  608.       BackColor       =   &H00008080&
  609.       BackStyle       =   0  'Transparent
  610.       Caption         =   "Barkodi:"
  611.       BeginProperty Font 
  612.          Name            =   "Tahoma"
  613.          Size            =   8.25
  614.          Charset         =   0
  615.          Weight          =   700
  616.          Underline       =   0   'False
  617.          Italic          =   0   'False
  618.          Strikethrough   =   0   'False
  619.       EndProperty
  620.       ForeColor       =   &H00404040&
  621.       Height          =   255
  622.       Index           =   0
  623.       Left            =   120
  624.       TabIndex        =   14
  625.       Top             =   960
  626.       Width           =   1815
  627.    End
  628.    Begin VB.Label Label2 
  629.       BackColor       =   &H00008080&
  630.       BackStyle       =   0  'Transparent
  631.       Caption         =   "TVSH  (%) :"
  632.       BeginProperty Font 
  633.          Name            =   "Tahoma"
  634.          Size            =   8.25
  635.          Charset         =   0
  636.          Weight          =   700
  637.          Underline       =   0   'False
  638.          Italic          =   0   'False
  639.          Strikethrough   =   0   'False
  640.       EndProperty
  641.       ForeColor       =   &H00404040&
  642.       Height          =   255
  643.       Index           =   7
  644.       Left            =   6840
  645.       TabIndex        =   13
  646.       Top             =   2400
  647.       Width           =   1335
  648.    End
  649.    Begin VB.Label Label2 
  650.       BackColor       =   &H00008080&
  651.       BackStyle       =   0  'Transparent
  652.       Caption         =   "╟mimi i blerjes:"
  653.       BeginProperty Font 
  654.          Name            =   "Tahoma"
  655.          Size            =   8.25
  656.          Charset         =   0
  657.          Weight          =   700
  658.          Underline       =   0   'False
  659.          Italic          =   0   'False
  660.          Strikethrough   =   0   'False
  661.       EndProperty
  662.       ForeColor       =   &H00404040&
  663.       Height          =   255
  664.       Index           =   5
  665.       Left            =   120
  666.       TabIndex        =   12
  667.       Top             =   2880
  668.       Width           =   1455
  669.    End
  670.    Begin VB.Label Label2 
  671.       BackColor       =   &H00008080&
  672.       BackStyle       =   0  'Transparent
  673.       Caption         =   "╟mimi i shitjes:"
  674.       BeginProperty Font 
  675.          Name            =   "Tahoma"
  676.          Size            =   8.25
  677.          Charset         =   0
  678.          Weight          =   700
  679.          Underline       =   0   'False
  680.          Italic          =   0   'False
  681.          Strikethrough   =   0   'False
  682.       EndProperty
  683.       ForeColor       =   &H00004080&
  684.       Height          =   255
  685.       Index           =   6
  686.       Left            =   6840
  687.       TabIndex        =   11
  688.       Top             =   2880
  689.       Width           =   1455
  690.    End
  691.    Begin VB.Label Label2 
  692.       BackColor       =   &H00008080&
  693.       BackStyle       =   0  'Transparent
  694.       Caption         =   "Sasia aktuale:"
  695.       BeginProperty Font 
  696.          Name            =   "Tahoma"
  697.          Size            =   8.25
  698.          Charset         =   0
  699.          Weight          =   700
  700.          Underline       =   0   'False
  701.          Italic          =   0   'False
  702.          Strikethrough   =   0   'False
  703.       EndProperty
  704.       ForeColor       =   &H00404040&
  705.       Height          =   255
  706.       Index           =   8
  707.       Left            =   6840
  708.       TabIndex        =   10
  709.       Top             =   1920
  710.       Width           =   1455
  711.    End
  712.    Begin VB.Image Image1 
  713.       Height          =   720
  714.       Left            =   0
  715.       Picture         =   "Form1.frx":1938
  716.       Stretch         =   -1  'True
  717.       Top             =   0
  718.       Width           =   11865
  719.    End
  720. End
  721. Attribute VB_Name = "frmItem"
  722. Attribute VB_GlobalNameSpace = False
  723. Attribute VB_Creatable = False
  724. Attribute VB_PredeclaredId = True
  725. Attribute VB_Exposed = False
  726. Option Explicit
  727. Dim blnEdit As Boolean
  728. Dim lngIndex As Long
  729. Public Sub blnStatus(blnEnable As Boolean)
  730. ListView1.Enabled = blnEnable
  731. cmdShto.Enabled = blnEnable
  732. cmdNdrysho.Enabled = blnEnable
  733. cmdFshije.Enabled = blnEnable
  734. End Sub
  735. Public Sub PastroTekstin()
  736. txtbarkodi.Text = ""
  737. txtpershkrimi.Text = ""
  738. txtsasia.Text = ""
  739. txtblerja.Text = ""
  740. txtshitja.Text = ""
  741. txtvat.Text = ""
  742. End Sub
  743. Public Sub LoadSupp()
  744. If rsSupp.RecordCount > 0 Then rsSupp.MoveFirst
  745. Do Until rsSupp.EOF
  746. If Not IsNull(rsSupp!supplierdesc) Then cboSupp.AddItem rsSupp!supplierdesc
  747. rsSupp.MoveNext
  748. DoEvents
  749. Loop
  750. End Sub
  751. Public Sub LoadCat()
  752. If rsKategoria.RecordCount > 0 Then rsKategoria.MoveFirst
  753. Do Until rsKategoria.EOF
  754. If Not IsNull(rsKategoria!categorydesc) Then cboCategory.AddItem rsKategoria!categorydesc
  755. rsKategoria.MoveNext
  756. DoEvents
  757. Loop
  758. End Sub
  759.  
  760. Public Sub HapArtikujt()
  761. Dim itm As ListItem
  762. ListView1.ListItems.Clear
  763. If Not rsitem.RecordCount < 1 Then rsitem.MoveFirst
  764. Do Until rsitem.EOF
  765. If Not IsNull(rsitem!upc) Then Set itm = ListView1.ListItems.Add(, , rsitem!upc, , 1)
  766. If Not IsNull(rsitem!longdesc) Then itm.SubItems(1) = rsitem!longdesc
  767. If Not IsNull(rsitem!stock) Then itm.SubItems(2) = rsitem!unitprice
  768. If Not IsNull(rsitem!tvsh) Then itm.SubItems(3) = rsitem!tvsh
  769. 'lblbarkodi.Caption = rsitem!upc
  770. rsitem.MoveNext
  771. DoEvents
  772. Loop
  773. End Sub
  774. Public Function GjejArtikullin() As Boolean
  775. Dim strTemp
  776. strTemp = "'" & strSearch & "'"
  777. On Error Resume Next
  778. rsitem.MoveFirst
  779. On Error GoTo ErrorNotOnFile:
  780. rsitem.Find "upc = " & strTemp, 0, adSearchForward
  781. If rsitem!upc = strSearch Then GjejArtikullin = True  'found
  782. On Error GoTo 0
  783. err.Clear
  784. Exit Function
  785. ErrorNotOnFile:
  786. GjejArtikullin = False
  787. DoEvents
  788. On Error GoTo 0
  789. err.Clear
  790. End Function
  791. Public Function GjejSupp() As Boolean
  792. Dim strTemp
  793. strTemp = "'" & strSearch & "'"
  794. On Error Resume Next
  795. rsSupp.MoveFirst
  796. On Error GoTo ErrorNotOnFile:
  797. rsSupp.Find "suppliderdesc = " & strTemp, 0, adSearchForward
  798. If rsSupp!suppliderdesc = strSearch Then GjejSupp = True 'found
  799. On Error GoTo 0
  800. err.Clear
  801. Exit Function
  802. ErrorNotOnFile:
  803. GjejSupp = False
  804. DoEvents
  805. On Error GoTo 0
  806. err.Clear
  807. End Function
  808.  
  809. Private Sub cboCategory_Click()
  810. Call dbconek
  811. With ar
  812. .Open "Select *From category Where categorydesc='" & cboCategory & "'", strConek, adOpenStatic, adLockOptimistic
  813. lblcat = !categoryid
  814. .Close
  815. End With
  816. End Sub
  817.  
  818. Private Sub cboSupp_Click()
  819. Call dbconek
  820. With ar
  821. .Open "Select *From supplier Where supplierdesc='" & cboSupp & "'", strConek, adOpenStatic, adLockOptimistic
  822. lblsupp = !supplierid
  823. .Close
  824. End With
  825. End Sub
  826.  
  827. Private Sub cmdAnuloje_Click()
  828. PastroTekstin
  829. blnStatus True
  830. If Not rsitem.EOF Then rsitem.MoveNext
  831. HapArtikujt
  832. Unload Me
  833. End Sub
  834.  
  835. Private Sub cmdDalja_Click()
  836. Form1.Show 1
  837. End Sub
  838.  
  839. Private Sub cmdFshije_Click()
  840. Dim blnFound As Boolean
  841. Dim intRes As Integer
  842. If txtbarkodi.Text = "" Then Exit Sub
  843. intRes = MsgBox("A jeni i sigurtδ se doni ta fshini shenimin?", vbQuestion + vbYesNo, "Konfirmoni fshirjen")
  844. If intRes = vbNo Then Exit Sub
  845. strSearch = CStr(txtbarkodi.Text)
  846. blnFound = GjejArtikullin()
  847. If blnFound = True Then
  848. rsitem.Delete
  849. rsitem.Requery
  850. MsgBox "Shenimi u fshi me sukses.", vbInformation, "Fshirja"
  851. HapArtikujt
  852. PastroTekstin
  853. End If
  854. End Sub
  855.  
  856. Private Sub cmdNdrysho_Click()
  857. If txtbarkodi.Text = "" Then Exit Sub
  858. blnStatus False
  859. txtbarkodi.Enabled = False
  860. txtpershkrimi.SetFocus
  861. blnEdit = True
  862. End Sub
  863.  
  864. Private Sub cmdRuaj_Click()
  865. Dim blnFound As Boolean
  866. If blnEdit = True Then
  867. strSearch = CStr(txtbarkodi.Text)
  868. blnFound = GjejArtikullin()
  869. rsitem.Update "upc", txtbarkodi.Text
  870. rsitem.Update "longdesc", txtpershkrimi.Text
  871. rsitem.Update "supplierid", lblsupp.Caption
  872. rsitem.Update "categoryid", lblcat.Caption
  873. rsitem.Update "stock", txtsasia.Text
  874. rsitem.Update "unitcost", txtblerja.Text
  875. rsitem.Update "unitprice", txtshitja.Text
  876. rsitem.Update "tvsh", txtvat.Text
  877. rsitem.Update "mazha", txtmazha.Text
  878. rsitem.Update "rabat", txtrabat.Text
  879. rsitem.Requery
  880. blnStatus True
  881. blnEdit = False
  882. Else
  883. rsitem.AddNew
  884. rsitem!upc = txtbarkodi.Text
  885. rsitem!longdesc = txtpershkrimi.Text
  886. rsitem!supplierid = lblsupp.Caption
  887. rsitem!categoryid = lblcat.Caption
  888. rsitem!stock = txtsasia.Text
  889. rsitem!unitcost = txtblerja.Text
  890. rsitem!unitprice = txtshitja.Text
  891. rsitem!tvsh = txtvat.Text
  892. rsitem!mazha = txtmazha.Text
  893. rsitem!rabat = txtrabat.Text
  894. rsitem.Update
  895. rsitem.Requery
  896. blnStatus True
  897. End If
  898. PastroTekstin
  899. HapArtikujt
  900. End Sub
  901.  
  902. Private Sub cmdShto_Click()
  903. blnStatus False
  904. PastroTekstin
  905. If chBar.Value = 1 Then
  906. rsitem.MoveLast
  907. txtbarkodi.Text = rsitem!upc + 1
  908. Else
  909. txtbarkodi.SetFocus
  910. End If
  911. End Sub
  912.  
  913.  
  914. Private Sub Command2_Click()
  915. Form1.Show 1
  916. End Sub
  917.  
  918. Private Sub Form_Load()
  919. DataConnect1
  920. OpenData1
  921. OpenDB1
  922. DataConnect2
  923. OpenData2
  924. OpenDB2
  925. DataConnect3
  926. OpenData3
  927. OpenDB3
  928. '==========
  929. HapArtikujt
  930. LoadSupp
  931. LoadCat
  932. End Sub
  933.  
  934. Private Sub lblcat_Change()
  935. Call dbconek
  936. ar.Open "Select *From category Where categoryid='" & lblcat & "'", strConek, adOpenStatic, adLockOptimistic
  937. cboCategory = ar!categorydesc
  938. ar.Close
  939. End Sub
  940.  
  941. Private Sub lblsupp_Change()
  942. Call dbconek
  943. ar.Open "Select *From supplier Where supplierid='" & lblsupp & "'", strConek, adOpenStatic, adLockOptimistic
  944. cboSupp = ar!supplierdesc
  945. ar.Close
  946. End Sub
  947.  
  948. Private Sub ListView1_Click()
  949. PastroTekstin
  950. Dim blnFound As Boolean
  951. If ListView1.ListItems.Count < 1 Then
  952. Exit Sub
  953. Else
  954. strSearch = CStr(ListView1.SelectedItem.Text)
  955. blnFound = GjejArtikullin()
  956. If blnFound = True Then
  957. txtbarkodi.Text = ListView1.SelectedItem.Text
  958. If Not IsNull(rsitem!longdesc) Then txtpershkrimi.Text = rsitem!longdesc
  959. If Not IsNull(rsitem!categoryid) Then lblcat.Caption = rsitem!categoryid
  960. If Not IsNull(rsitem!supplierid) Then lblsupp.Caption = rsitem!supplierid
  961. If Not IsNull(rsitem!stock) Then txtsasia.Text = rsitem!stock
  962. If Not IsNull(rsitem!unitcost) Then txtblerja.Text = rsitem!unitcost
  963. If Not IsNull(rsitem!unitprice) Then txtshitja.Text = rsitem!unitprice
  964. If Not IsNull(rsitem!tvsh) Then txtvat.Text = rsitem!tvsh
  965. If Not IsNull(rsitem!mazha) Then txtmazha.Text = rsitem!mazha
  966. If Not IsNull(rsitem!rabat) Then txtrabat.Text = rsitem!rabat
  967. End If
  968. End If
  969. End Sub
  970.  
  971. Private Sub Text2_LostFocus()
  972.  
  973. End Sub
  974.  
  975. Private Sub txtbarkodi_LostFocus()
  976. Dim blnFound As Boolean
  977. strSearch = CStr(txtbarkodi.Text)
  978. blnFound = GjejArtikullin()
  979. If blnFound = True And Not lblbarkodi.Caption = txtbarkodi.Text Then
  980. HapArtikujt
  981. blnStatus True
  982. MsgBox "Ky barkod ekziston!", vbInformation, "Barkodi/Artikulli!"
  983. txtbarkodi.Text = ""
  984. txtbarkodi.SetFocus
  985. End If
  986. End Sub
  987.  
  988. Private Sub txtmazha_LostFocus()
  989. 'lbltotal.Caption = txtblerja / 100 * txtmazha + txtblerja
  990. lbltotal.Caption = Format(CCur(txtblerja) / 100 * txtmazha + txtblerja, "###,###,##0.00")
  991. End Sub
  992.  
  993. Private Sub txtpershkrimi_KeyPress(KeyAscii As Integer)
  994. KeyAscii = Asc(UCase(Chr(KeyAscii)))
  995. End Sub
  996.  
  997. Private Sub txtvat_KeyPress(KeyAscii As Integer)
  998. If KeyAscii = vbKeyReturn Then
  999. cmdRuaj_Click
  1000. txtbarkodi.SetFocus
  1001. End If
  1002. End Sub
  1003.  
  1004. Private Sub txtvat_LostFocus()
  1005. 'txtshitja.Text = Format(CCur(lbltotal) / 100 * txtvat + lbltotal, "###,###,##0.00")
  1006. txtshitja.Text = Format(CCur(txtblerja) / 100 * txtmazha + txtblerja, "###,###,##0.00")
  1007. End Sub
  1008.